%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Home>>Careers
<%
set rsp=server.CreateObject("adodb.recordset")
RsSqlP="select title,Intime,content from contact_info where flag=0 order by hits asc,LeSeno_id desc"
rsp.open RsSqlP,conn,1,1
%>
<%
if not rsp.eof then
rsp.PageSize=2 '设置每页记录数
TotalPages = rsp.PageCount '读取总页数
If Request("CurPage")<>"" and IsNumeric(Request("CurPage")) Then CurPage = Int(Request("CurPage"))
If CurPage="" or CurPage<1 Then CurPage=1
If CurPage>TotalPages Then CurPage=TotalPages
rsp.AbsolutePage=CurPage '当前页
StartPageNum=1 '初始页
TurnPagesNum=5 '每一个页类数目
Do While StartPageNum+TurnPagesNum-3<=CurPage
StartPageNum=StartPageNum+TurnPagesNum-4 '这两行数字必须少于页类数目的一半
Loop
EndPageNum=StartPageNum+(TurnPagesNum-1)
If EndPageNum>TotalPages Then EndPageNum=TotalPages
If CurPage>1 Then
frontPage = CurPage - 1
frontNum = frontPage * rsp.PageSize
End if
I=0
do while not rsp.eof and I <%=rsp(0)%>(<%=rsp(1)%>)
<%=rsp(2)%>
<%
rsp.movenext
loop
%>
<%
End If
rsp.close
set rsp=nothing
%>
|